home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / PORTLAND.CMD < prev    next >
OS/2 REXX Batch file  |  1987-12-27  |  3KB  |  167 lines
  1. ASSI S7"    "
  2. ASSI S0" "
  3. ASSI S1"PORTLAND, OR  [503]"
  4. BEGIN:
  5. CLEA
  6. LOCA 4,0
  7. MESS"                         ╔══╡ PORTLAND BBS NUMBERS ╞══╗"
  8. MESS"                         ║                            ║"
  9. MESS"                         ║  A - Fido North West       ║"
  10. MESS"                         ║  B - PMS                   ║"
  11. MESS"                         ║  C - Bit Bucket            ║"
  12. MESS"                         ║  D - Telegodzilla          ║"
  13. MESS"                         ║  E - RCP / M               ║"
  14. MESS"                         ║  F - Fido #39              ║"
  15. MESS"                         ║  M - Manual Dial           ║"
  16. MESS"                         ║  Q - Return to MAIN menu   ║"
  17. MESS"                         ║                            ║"
  18. MESS"                         ╠════════════════════════════╣"
  19. MESS"                         ║ ENTER YOUR CHOICE(S):      ║"
  20. MESS"                         ║                            ║"
  21. MESS"                         ╚════════════════════════════╝"
  22. LOCA 17,27
  23. GET S0
  24. TOP:
  25. FIND S0"A"
  26. IF FOUN
  27. ASSI S6"Fido North West"
  28. ASSI S8"2336583"
  29. GOSU REDIALER
  30. ELSE
  31. ENDI
  32. FIND S0"B"
  33. IF FOUN
  34. ASSI S6"PMS"
  35. ASSI S8"2452536"
  36. GOSU REDIALER
  37. ELSE
  38. ENDI
  39. FIND S0"C"
  40. IF FOUN
  41. ASSI S6"Bit Bucket"
  42. ASSI S8"2540458"
  43. GOSU REDIALER
  44. ELSE
  45. ENDI
  46. FIND S0"D"
  47. IF FOUN
  48. ASSI S6"Telegodzilla"
  49. ASSI S8"6213746"
  50. GOSU REDIALER
  51. ELSE
  52. ENDI
  53. FIND S0"E"
  54. IF FOUN
  55. ASSI S6"RCP /M"
  56. ASSI S8"6427028"
  57. GOSU REDIALER
  58. ELSE
  59. ENDI
  60. FIND S0"6"
  61. IF FOUN
  62. ASSI S6"Fido #39"
  63. ASSI S8"6668265"
  64. GOSU REDIALER
  65. ELSE
  66. ENDI
  67. FIND S0"M"
  68. IF FOUN
  69. CLEA
  70. LOCA 5,20
  71. MESS"NUMBER TO DIAL:"
  72. LOCA 5,36
  73. ASSI S6"MANUAL DIAL"
  74. GET S8
  75. GOSU REDIALER
  76. ELSE
  77. ENDI
  78. FIND S0"Q"
  79. IF FOUN
  80. CLEA
  81. TRAN"!@!"
  82. WAIT"@"
  83. TRAN"D!"
  84. WAIT"@"
  85. CLEA
  86. LOCA 1,0
  87. PAUS 1
  88. EXEC"SELCITY.CMD"
  89. ELSE
  90. ENDI
  91. FIND S7"MORE"
  92. IF FOUN
  93. ASSI S7"    "
  94. GOTO TOP
  95. ENDI
  96. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  97. MESS"RETURNING TO MAIN MENU"
  98. ALAR
  99. ASSI S0"Q"
  100. GOTO TOP
  101. REDIALER:
  102. CLEA
  103. ISFI S6
  104. IF NOT SUCC
  105. LOCA 5, 35
  106. MESS"DIALING"
  107. MESS" "
  108. MESS S6
  109. MESS S8
  110. TRAN"I!"
  111. PAUS 1
  112. TRAN"ATZ!"
  113. WAIT"OK"
  114. TRAN"^E!"
  115. WAIT"READY"
  116. TRAN"D"
  117. TRAN S8
  118. TRAN"!"
  119. RGET S9
  120. RGET S9 80 40
  121. RGET S9 40 40
  122. RGET S9 40 40
  123. GOTMESS:
  124. FIND S9"BUSY"
  125. IF FOUN
  126. MESS S6
  127. MESS S8
  128. MESS"BUSY; GOING TO NEXT NUMBER"
  129. MESS"****************************************************************"
  130. ASSI S7"MORE"
  131. GOTO RTRN
  132. ENDI
  133. FIND S9"ANSWER TONE"
  134. IF FOUN
  135. SET PARI NONE
  136. SET DATA 8
  137. CLEA
  138. MESS"CONNECTED TO"
  139. MESS S8
  140. MESS S6
  141. MESS S1
  142. ALAR
  143. EXIT
  144. ELSE
  145. FIND S9"RINGING"
  146. IF FOUN
  147. RGET S9
  148. FIND S9"RINGING"
  149. IF FOUN
  150. LOG OPEN S6
  151. MESS"NO ANSWER - STILL RINGING"
  152. MESS S8
  153. MESS S6
  154. MESS S1
  155. LOG CLOSE
  156. TRAN"^C^D^C"
  157. MESS"**************************************************************"
  158. GOTO RTRN
  159. ELSE
  160. GOTO GOTMESS
  161. ENDI
  162. ENDI
  163. ENDI
  164. ENDI
  165. RTRN:
  166. RETURN
  167.